home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / XLISP 2.0 / XLISP Tools / Utility (UL) / INIT.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1988-04-02  |  1017 b   |  36 lines  |  [TEXT/ttxt]
  1. ; Initialize XLISP
  2.  
  3. ; initialize
  4.  
  5. ; basic additions to XLISP: push, pop, defvar, require, provide
  6. ; declarations of some global variables: *declared-global-variables*,
  7. ;                                        *lisp-extension*,
  8. ;                                        *modules*
  9.  
  10. (load "stack" :verbose t)
  11. (load "declare" :verbose t)
  12. (load "global" :verbose t)
  13. (load "req-prov" :verbose t)
  14.  
  15. ; Controls display of "garbage collecting..." messages
  16.  
  17. (defvar *gc-flag* nil)
  18. (defvar *tracenable* t)        ; display trace?
  19. (defvar *tracelimit* 3)        ; display how many levels of trace?
  20. (defvar *breakenable* t)    ; print error messages?
  21. (defvar *load-verbose* t)
  22. (defvar *print-case* :downcase)
  23.  
  24. (require 'trace)        ; requires set, s-expression, apl
  25. (require 'utility "util")    ; requires io, sequence, msg, array, iteration
  26. (require 'save "save")        ; requires grind
  27.  
  28. ;(load "asse10")
  29.  
  30. (require 'personality "personal")
  31. (defvar *personality* 'offensive)
  32. (randomize)
  33.  
  34. (msg "Welcome to XLISP you " (chastise-careless-users-string) "." t)
  35.  
  36.